home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / tt / crackart / scrapacc / acc_scrp.lst < prev   
Encoding:
File List  |  1996-09-18  |  1.7 KB  |  48 lines
  1. '
  2. '
  3. ' SCRAP-Buffer-Beispielaccessory für CRACK ART
  4. '
  5. '
  6. $m2000                  ! Minimum memory consumption
  7. ap_id&=APPL_INIT()
  8. IF ap_id&
  9.   me_id&=MENU_REGISTER(ap_id&,"  READ SRAP")
  10.   DO
  11.     ~EVNT_MESAG(0)
  12.     IF MENU(1)=40                       ! Accessory wurde aufgerufen
  13.       '
  14.       IF SCRP_READ(buffer$)<>0          ! kann SCRAP-Buffer ausgelesen werden?
  15.         IF LEFT$(buffer$,2)="CA"        ! CRACK ART-Kennung vorhanden?
  16.           '
  17.           scrapadr%=VAL("&H"+RIGHT$(buffer$,8))     ! strukturadresse auslesen
  18.           '
  19.           alert$="| Structure Adr: "+HEX$(scrapadr%,8)+" |"
  20.           ALERT 3,alert$,1," OK ",i&
  21.           '
  22.           alert$="| Number of Screens: "+STR$(DPEEK(scrapadr%))+" | Current Screen:    "+STR$(DPEEK(scrapadr%+2))+"|"
  23.           ALERT 3,alert$,1," OK ",i&
  24.           '
  25.           ALERT 2,"| Invert Current Workscreen |",1,"Invert|Cancel",i&
  26.           IF i&=1                                       ! Bildschirm invertieren
  27.             adr%=LPEEK(scrapadr%+4)                     ! Bildschirmadresse
  28.             DEFMOUSE 2                                  ! Busy Bee
  29.             FOR i&=0 TO 7999                            ! 8000 Langworte
  30.               LPOKE adr%,LPEEK(adr%) XOR &HFFFFFFFF     ! invertieren
  31.               ADD adr%,4                                ! Adresse erhöhen
  32.             NEXT i&
  33.             DEFMOUSE 0                                  ! Mauspfeil
  34.           ENDIF
  35.           '
  36.         ELSE
  37.           ALERT 1,"| No CRACK ART | SCRAP-Entry! |",1,"Cancel",i&
  38.         ENDIF
  39.       ELSE
  40.         ALERT 1,"| SCRAP_READ Error! |",1,"Cancel",i&
  41.       ENDIF
  42.       '
  43.     ENDIF
  44.   LOOP
  45. ENDIF
  46. '
  47. END
  48.